| Filename | (eval 1111)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 680 statements in 774µs |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 319 | 2 | 2 | 2.56ms | 3.02ms | DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count |
| 1 | 1 | 1 | 14µs | 23µs | Sub::Quote::BEGIN@4.2969 |
| 1 | 1 | 1 | 7µs | 7µs | Method::Generate::Accessor::BEGIN@10.2970 |
| 1 | 1 | 1 | 6µs | 6µs | DBIx::Class::Storage::BlockRunner::BEGIN@21 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||||
| 3 | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||||
| 4 | 2 | 33µs | # spent 23µs (14+10) within Sub::Quote::BEGIN@4.2969 which was called:
# once (14µs+10µs) by Sub::Quote::_clean_eval at line 4 # spent 23µs making 1 call to Sub::Quote::BEGIN@4.2969
# spent 10µs making 1 call to warnings::unimport | ||
| 5 | # spent 3.02ms (2.56+463µs) within DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count which was called 319 times, avg 9µs/call:
# 318 times (2.54ms+462µs) by DBIx::Class::Storage::BlockRunner::run at line 108 of DBIx/Class/Storage/BlockRunner.pm, avg 9µs/call
# once (15µs+1µs) by DBIx::Class::Storage::BlockRunner::run at line 56 of Sub/Defer.pm | ||||
| 6 | $_QUOTED if 0; | ||||
| 7 | 85 | 11µs | $_UNQUOTED if 0; | ||
| 8 | # BEGIN quote_sub PRELUDE | ||||
| 9 | package Method::Generate::Accessor; | ||||
| 10 | # spent 7µs within Method::Generate::Accessor::BEGIN@10.2970 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 15 | ||||
| 11 | $^H = "1762"; | ||||
| 12 | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"; | ||||
| 13 | %^H = ( | ||||
| 14 | ); | ||||
| 15 | 1 | 7µs | } # spent 7µs making 1 call to Method::Generate::Accessor::BEGIN@10.2970 | ||
| 16 | # END quote_sub PRELUDE | ||||
| 17 | 170 | 283µs | do { my $self = shift; | ||
| 18 | 85 | 79µs | $self->{"failed_attempt_count"} = $_[0]; | ||
| 19 | 170 | 109µs | do { local @_ = ($self, $_[0]); # BEGIN quote_sub PRELUDE | ||
| 20 | package DBIx::Class::Storage::BlockRunner; | ||||
| 21 | # spent 6µs within DBIx::Class::Storage::BlockRunner::BEGIN@21 which was called:
# once (6µs+0s) by Sub::Quote::_clean_eval at line 26 | ||||
| 22 | $^H = "133090"; | ||||
| 23 | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU"; | ||||
| 24 | %^H = ( | ||||
| 25 | ); | ||||
| 26 | 1 | 6µs | } # spent 6µs making 1 call to DBIx::Class::Storage::BlockRunner::BEGIN@21 | ||
| 27 | # END quote_sub PRELUDE | ||||
| 28 | |||||
| 29 | 85 | 269µs | 1 | 2µs | $_[0]->throw_exception( sprintf ( # spent 2µs making 1 call to DBIx::Class::Storage::BlockRunner::max_attempts |
| 30 | 'Reached max_attempts amount of %d, latest exception: %s', | ||||
| 31 | $_[0]->max_attempts, $_[0]->last_exception | ||||
| 32 | )) if $_[0]->max_attempts <= ($_[1]||0); | ||||
| 33 | }; | ||||
| 34 | 85 | 23µs | $_[0]; | ||
| 35 | } } | ||||
| 36 | $$_UNQUOTED = \&DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count | ||||
| 37 | } | ||||
| 38 | 1; | ||||
| 39 | |||||
| 40 | ; |